<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>6</cardCount>
<cardID>6798</cardID>
<listID>4890</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>on openStackprepareDataend openStackon setGlobals mrepeat with i = 1 to (the number of lines of m)set the cursor to busyput line i of m into tlput "global "&(item 2 of tl) into cmddo cmdput "put "&(item 1 of tl)&" into "&(item 2 of tl) into cmdif item 1 of tl <> empty then do cmdend repeatend setGlobalson prepareDatalock screen--initialize Globalsset the lockmessages to truego cd "Main"setGlobals (bg fld "Defaults")cornertoksgo backset the lockmessages to falseglobal outerRect,innerRect,titleRectput "0,0,323,323" into outerRectput "49,49,276,276" into innerRectput "325,51,499,67" into TitleRectglobal Chanceput bg fld "Chance" into Chanceglobal Data,Names,Monops,Strings,ChanceDesc,Sounds,icnosput bg fld "icnos" into icnosput bg fld "Names" into Namesput bg fld "Data" into Dataput bg fld "Monops" into Monopsput bg fld "Strings" into Stringsput bg fld "ChanceDesc" into ChanceDescput bg fld "Sounds" into Soundsglobal globlistput bg fld "globlist" into globlistglobal KMenu,PMenuput line 1 of bg fld "KMenu" into KMenuput line 1 of bg fld "PMenu" into PMenuif KMenu is not in the menus thencreate menu KMenuput the number of lines of bg fld "Kmenu" into mrepeat with i = 2 to mput line i of bg fld "Kmenu" into thelineput item 1 of theLine after menu KMenuset the menuMsg of menuItem (i-1) of menu KMenu to item 2 of theLineset the cmdchar of menuItem (i-1) of menu KMenu to item 3 of theLineend repeatput "About Knockoffaly" into menuItem 1 of menu 1set the menumsg of menuItem 1 of menu 1 to "Kabout"end ifdisable menu KMenuif PMenu is not in the menus thencreate menu PMenuput the number of lines of bg fld "Pmenu" into mrepeat with i = 2 to mput line i of bg fld "Pmenu" into thelineput item 1 of theLine after menu PMenuset the menuMsg of menuItem (i-1) of menu PMenu to item 2 of theLineend repeatend ifdisable menu PMenuglobal notRegif there is a stack "Resource Stack" thenstart using stack "Resource Stack"put false into notRegelseput true into notRegend ifKlobberMenusglobal BWif maxDepth() = 1 thenshow cd pictput true into BWelsehide cd pictput false into BWend ifunlock screenend prepareDataon kAboutvisual iris open slowgo cd "About"end kAbouton cleanExitanswer getstr(46) with "Home" or "Finder"if it is "Finder" then doMenu "Quit Hypercard"doMenu "Home"end cleanExiton Reg xif not("Resource Stack" is in the StacksInUse) thenanswer getstr(47)elseif x = (the name of menuItem 13 of menu "Parameters") thenanswer "This is no place for messing around. Are you sure?" with "Yes" or "No"if it is "No" then exit Regend ifset the lockmessages to truecolorizeHC "Erase"global KMenu,PMenuif KMenu is in the menus then disable menu KMenuif PMenu is in the menus then disable menu PMenugo cd x of stack "KnockEditors"set the lockmessages to falseopencardend ifend Regon klobberMenus-- answer "Really clobber the menus?" with "Yes" or "No"-- if the result is "No" then exit KlobberMenus-- if it is "No" then exit KlobberMenus-- doMenu "Message"if "File" is in the menus then delete menu "File"if "Edit" is in the menus then delete menu "Edit"--if "Go" is in the menus then delete menu "Go"if "Tools" is in the menus then delete menu "Tools"if "Objects" is in the menus then delete menu "Objects"if "Font" is in the menus then delete menu "Font"if "Style" is in the menus then delete menu "Style"set the userlevel to 2end KlobberMenuson suspendStackreset menubarend suspendstackon resumestackprepareDataend resumestackon reverseMortsglobal MortListrepeat with k = 1 to (the number of words of MortList)invertSquare (word k of MortList)visMort(word k of MortList)end repeatend reverseMortson CleanBoardgo cd "Main"put "" into cd fld "statusline"global rbase,begtok,MortListreverseMortsput "" into MortListrepeat with i = 1 to 40if SQtype(i) contains "Color" or SQtype(i) contains "Farm" thenput line 13 of cd fld "GenericColor" into line 13 of cd fld ("Title"&i)put line 14 of cd fld "GenericColor" into line 14 of cd fld ("Title"&i)else if SQtype(i) contains "Utility" or SQtype(i) contains "Transport" thenput line 8 of cd fld "GenericUtility" into line 8 of cd fld ("Title"&i)put line 9 of cd fld "GenericTransport" into line 9 of cd fld ("Title"&i)end ifset the cursor to busyif there is a cd btn ("l"&i) thenset the icon of cd btn ("l"&i) to 0set the hilite of cd btn ("l"&i) to falsedeVisMort iend ifif there is a cd btn ("h"&i) then set the icon of cd btn ("h"&i) of cd "Main" to 0set the hilite of cd btn ("b"&i) to falseend repeatrepeat with i = 1 to 8hide cd btn (rbase+i-1)hide cd fld ("avcash"&i)set the name of cd btn (begtok+i-1) to "token"end repeatend cleanBoardon closeStackglobal BWlock screencleanBoardreset menubarif not BW then colorizeHC "Dispose" -- let's clean upglobal bwpaintif bwpaint is true thenchoose select toolshow cd pictdoMenu "Select All"doMenu "Cut Picture"choose browse toolput false into bwpaintend ifdoMenu "Compact Stack"end closeStackon business amt,propnum,seller,buyerglobal Money,PlayerProf,VolatileData,Bank,Monop,Cost,PropList,¬Assets,Data,MortgageValue,MoneyOwed,Creditor,EduMode--assumes validity of transaction already checkedif seller = 0 thenadd amt to Bankelseif EduMode is true then Edu amt,selleradd amt to item Money of line seller of PlayerProfif item Creditor of line seller of PlayerProf <> "" thenpayDebt sellerend ifput item Money of line seller of PlayerProf into cd fld ("avcash"&seller) of cd "Main"end ifif buyer = 0 thensubtract amt from Bankelseif EduMode is true then Edu (-1*amt),buyersubtract amt from item Money of line buyer of PlayerProf--handle debts hereif item Money of line buyer of PlayerProf < 0 then --we have a debtincurDebt buyer,sellerend ifput item Money of line buyer of PlayerProf into cd fld ("avcash"&buyer) of cd "Main"end ifif propnum > 0 then --it's a lotput item Monop of line propnum of Data into mnoif seller <> 0 then --delete the lot from sellers proplistput item propList of line seller of PlayerProf into propsrepeat with i = 1 to (the number of words of props)if word i of props = propnum thendelete word i of propsexit repeatend ifend repeatput props into item proplist of line seller of PlayerProfend if--put the property into the buyer's listif buyer <> 0 then put " " & propnum after item Proplist of line buyer of PlayerProf--change the owner alsodeMonop mno,sellerput buyer into item 1 of line propnum of VolatileDataif buyer <> 0 thenput item 1 of line buyer of PlayerProf into ownelseput "Bank" into ownend ifput MonopCheck(mno,buyer) into mcheckif (SQType(propnum) contains "Color") or (SQType(propnum) contains "Farm") thenput own into word 2 of line 13 of cd fld ("Title"&propnum) of cd "Main"if mcheck thenput "Group" after line 14 of cd fld ("Title"&propnum) of cd "Main"end ifelse --its a utility or transportput own into word 2 of line 8 of cd fld ("Title"&propnum) of cd "Main"if mcheck thenput "Group" after line 9 of cd fld ("Title"&propnum) of cd "Main"end ifend ifvisOwn propnum,buyerend ifend businesson incurDebt buy,sellglobal PlayerProf,creditorput sell into item Creditor of line buy of PlayerProfend incurDebton payDebt pnumglobal PlayerProf,Creditor,Moneyif item Money of line pnum of PlayerProf >= 0 thenput "" into item Creditor of line pnum of PlayerProfend ifend payDebton cornerToksglobal begtokrepeat with i = begtok to (begtok+7)set the name of cd btn i of cd "Main" to "token"put line (i-begtok)+1 of cd fld "tokloc" of cd "Main" into lokshow cd btn i of cd "Main" at lokset the hilite of cd btn i to falseend repeatend cornerTokson deMonop mno,xglobal Monops,mbase,Monopsif item 3 of line mno of Monops = x thenput -1 into item 3 of line mno of Monopsif (SQtype(x) contains "Color") or (SQtype(x) contains "Farm") then put 14 into lno else put 9 into lnoput "Title"&x into deedrepeat with k = 2 to (the number of words of line lno of cd fld deed of cd "Main")if word 2 of line lno of cd fld deed of cd "Main" = "Group" then delete word 2 of line lno of cd fld deed of cd "Main"end repeatend ifend demonopon hidetoksglobal begtokrepeat with i = 1 to 8set the name of cd btn (begtok+i-1) to "token"hide cd btn (begtok+i-1) --at (line i of cd fld "tokloc")end repeatend hidetokson Edu amt,playerglobal PlayerProf,Money,EduBonus,EduPenaput (item Money of line player of PlayerProf)+amt into responseask (item 1 of line player of PlayerProf) & getstr(63)if it is response thenplay "flute" "c4s f a c5e a4s c5e."if EduBonus <> 0 thenflashit getstr(64) & EduBonus,3add EduBonus to item Money of line player of PlayerProfend ifelseplay "fart"if EduPena <> 0 thenflashit getstr(65) & response & getstr(66) & EduPenasubtract EduPena from item Money of line player of PlayerProfend ifend ifend Eduon tradeglobal dealer1,dealer2,Gameif Game <> true thenflashit "No players yet--we can’t do a deal!",4exit tradeend ifput getPlayerNum(getStr(1)) into dealer1global PlayerProf,statusput getPlayerNum(getStr(2)) into dealer2if (item status of line dealer1 of PlayerProf is "bankrupt") ¬or (item status of line dealer2 of PlayerProf is "bankrupt") thenflashit "Bankrupt players can't deal.",3exit tradeend iflock screenput "" into cd fld "statusline"go cd "Deal"end tradeon loadanswer file getstr(49) of type "TEXT"put the result into rif r is empty thenput it into filenameopen file itglobal Monops,PlayerProf,VolatileData,NumPlayers,Player,Chance,MortgageFlag,Monop,Dataread from file filename until EOFput it into savedGameclose file fileNameput word 1 of line 1 of savedGame into sglobal Signatureif s <> Signature thenanswer "This game's signature does not match that of this board."exit loadend ifcleanboardput word 2 of line 1 of savedGame into numMonopsrepeat with i = 1 to numMonopsput word (i+2) of line 1 of savedGame into item 3 of line i of Monopsend repeatrepeat with i = 1 to 40 --also set up Names & Mortgage statuses in Deedsset the cursor to busyif SQtype(i) contains "Color" or (SQType(i) contains "Farm") then put 14 into sl else put 9 into slput line i+1 of savedGame into line i of VolatileDataif item Mortgageflag of line i of VolatileData is "Mortgaged" thenput " M" after line sl of cd fld ("Title"&i)end ifend repeatput line 42 of savedGame into NumPlayersput line 43 of savedGame into Playerput NumPlayers into nrepeat with j = 1 to nset the cursor to busyput line (43+j) of savedGame into line j of PlayerProfput item 2 of line j of PlayerProf into proplistput (item 1 of line j of PlayerProf) into theNamerepeat with k = 1 to (the number of words of proplist)put "Title"&(word k of proplist) into theDeedput SQtype(word k of proplist) into theTypeif (theType contains "Color") or (theType contains "Farm") thenput 13 into slelseput 8 into slend ifput " " & theName after line sl of cd fld theDeedif monopcheck(item Monop of line (word k of proplist) of Data,j) thenput " Group" after line (sl+1) of cd fld theDeedend ifend repeatend repeatglobal chancePtr,chanceJail,Chance,chanceSize,chanceDexes,ndecksput line (44+n) of savedGame into chancePtrput line (45+n) of savedGame into chanceJailput the number of words of chancePtr into ndecksrepeat with i = 1 to ndecksset the cursor to busyput line (45+n+i) of savedGame into line i of ChanceDexesend repeatend ifgo cd "Main"setOldGame -- set the board upend loadon saveglobal Monops,PlayerProf,VolatileData,NumPlayers,Player,Signatureput the number of lines of Monops into NumMonopsput Signature & " " & NumMonops & " " after temprepeat with i = 1 to NumMonops --write monop ownerput (item 3 of line i of Monops) & " " after tempend repeatrepeat with i = 1 to 40put (line i of VolatileData) into line (i+1) of tempend repeatput NumPlayers into line 42 of tempput Player into line 43 of temprepeat with i = 1 to NumPlayersput (line i of PlayerProf) into line 43+i of tempend repeatglobal chancePtr,chanceJail,Chance,chanceSize,ChanceDexes,ndecksput chancePtr into line (44+NumPlayers) of tempput chanceJail into line (45+NumPlayers) of temprepeat with i = 1 to ndecksput line i of chanceDexes into line (45+NumPlayers+i) of tempend repeatask file getstr(50)put the result into rif r is empty thenput it into filenameopen file filenamewrite temp to file filenameclose file filenameend ifend save-- on FileIcon filename-- put the long name of me into myname-- delete word 1 of myname-- delete first char of myname-- delete last char of myname-- put "ICN#,icl8,ics8,icl4,ics4,ics#" into restypes-- repeat with i = 1 to 6-- put item i of restypes into type-- CopyRes myname,filename,type,128-- put the result-- EditResource filename,type,128,,-16455-- end repeat-- setCustomFileIcon filename-- end FileIconon visOwn propnum,ownerput "l" & propnum into sqrput "tiny" & owner into icif owner <> 0 thenset the icon of cd btn sqr of cd "Main" to icelseset the icon of cd btn sqr to 0end ifend visOwnfunction Monopcheck mno,pnumglobal PlayerProf,mbase,Monopsif item 3 of line mno of Monops = pnum thenreturn trueend ifput item 2 of line mno of Monops into mpropsput item 2 of line pnum of PlayerProf into propsput 0 into foundrepeat with i = 1 to (the number of words of props)repeat with j = 1 to (the number of words of mprops)if word j of mprops = word i of props then add 1 to foundend repeatend repeatif found = (the number of words of mprops) thenput pnum into item 3 of line mno of Monopsreturn trueelsereturn falseend ifend monopcheckon pstatusglobal PlayerNumber,statusfrom,Gameif Game is false thenflashit getstr(67),4exit pstatusend ifput getPlayerNum(getstr(3)) into PlayerNumberput the short name of this cd into statusfromlock screengo cd "PlayerStatus"end pstatuson bankruptglobal PlayerProf,status,Creditor,Assets,NumPlayers,Name,moneyOwed,¬unimproved,bplayer,VolatileData,hCount,Player,Game,Costif Game <> true thenbeepexit bankruptend ifput getPlayerNum(getstr(4)) into pnumput pnum into bplayerif item status of line pnum of playerProf is "bankrupt" thenflashit getstr(5)exit bankruptend ifput item 2 of line pnum of PlayerProf into propsrepeat with i = 1 to (the number of words of props) --check for buildings/cropsif item hCount of line (word i of props) of VolatileData <> 0 thenflashit getstr(6),4exit bankruptend ifend repeathide cd btn ("token"&pnum) of cd "Main"put item Creditor of line pnum of PlayerProf into cput item MoneyOwed of line pnum of PlayerProf into moput item 1 of line c of PlayerProf into cnamerepeat with i = 1 to (the number of words of props)if mo > 0 thenbusiness 0,(word i of props),pnum,cput item Cost of line (word 1 of props) of Data into valsubtract val from moelseput auction ((word i of props),0) into xdelete word i of item 2 of line pnum of PlayerProfend ifend repeathide cd btn ("token"&pnum)put "bankrupt" into item status of line pnum of PlayerProfput "****" into cd fld ("avcash"&pnum)put "" into bplayer --shouldn't matter, but--look to see if only one player is bankruptput 0 into actives--if the bankrupt player is current, go to the next playerif Player = pnum then nextPlayerrepeat with i = 1 to NumPlayersif item status of line i of PlayerProf <> "bankrupt" thenadd 1 to activesput i into notbend ifend repeatif actives = 1 thenflashit item Name of line notb of PlayerProf & getstr(7),10put false into Gameend ifend bankruptfunction getPlayerNum x,delay,propglobal nameRectput false into foundput the Ticks into stif prop <> empty then put "b"&prop into butput x into cd fld "statusline" of cd "Main"repeat until found is truerepeat until the mouseclickhide cd fld "statusline" of cd "Main"if prop <> empty then set the hilite of cd btn but to¬not(the hilite of cd btn but)if delay <> "" thenshow cd fld "statusline" of cd "Main"if prop <> empty then set the hilite of cd btn but to¬not(the hilite of cd btn but)if (the Ticks - st) > delay then return("TimeOut")end ifshow cd fld "statusline" of cd "Main"if prop <> empty then set the hilite of cd btn but to¬not(the hilite of cd btn but)end repeatif the clickLoc is within nameRect then put true into foundend repeatclick at the ClickLocglobal rbase,litreturn( lit-rbase+1)end getPlayerNumon setOldGameglobal Monops,VolatileData,PlayerProf,Data,numPlayers,Game,¬Direction,nameRect,tokNo,MortList--cleanBoardopencardput "" into MortListrepeat with i = 1 to 40set the cursor to busyput line i of VolatileData into thePropif item 1 of theProp > 0 thenput "tiny"&(item 1 of theProp) into icset the icon of cd btn ("l"&i) of cd "Main" to icend ifif item 2 of theProp > 0 thenglobal Monopput item Monop of line i of Data into mnoput item 4 of line mno of Monops into maxput item Direction of line i of Data into icput SQType(i) into sqtif sqt contains "Farm" then put "c" into ix else put "h" into ixif item 2 of theProp >= max and sqt contains "Color" thenput ic & "hotel" into icelseput ic & ix & (item 2 of theProp) into icend ifset the icon of cd btn ("h"&i) of cd "Main" to icend ifif item 3 of theProp is "Mortgaged" thenglobal BW,notRegif BW or notReg thenset the hilite of cd btn ("b"&i) of cd "Main" to trueset the hilite of cd btn ("l"&i) of cd "Main" to trueelseInvertSquare(i)visMort iput " " & i after MortListend ifelseset the hilite of cd btn ("b"&i) of cd "Main" to falseend ifend repeatrepeat with i = 1 to numPlayersglobal Name,MyPlace,Money,rbase,tokNo,statusset the hilite of cd btn (rbase+i-1) to falseput item 3 of the rect of cd btn (rbase+i-1) into item 3 of nameRectput item 4 of the rect of cd btn (rbase+i-1) into item 4 of nameRectset the name of cd btn (rbase+i-1) to item Name of line i of PlayerProfput item Money of line i of PlayerProf into cd fld ("avcash"&i) of cd "Main"set the name of cd btn (item tokNo of line i of PlayerProf) to "token"&ishow cd btn (rbase+i-1) of cd "Main"show cd fld ("avcash"&i) of cd "Main"if item Status of line i of PlayerProf is "bankrupt" then put "****" into cd fld ("avcash"&i)put ("b"&(item MyPlace of line i of PlayerProf)) into thesqshow cd btn ("token"&i) of cd "Main" at the loc of cd btn thesq of cd "Main"if the hilite of cd btn thesq is true then set the hilite of cd btn ("token"&i) to trueend repeatrepeat with i = (numPlayers+1) to 8hide cd btn (rbase+i-1)hide cd fld ("avcash"&i)end repeatglobal begtokrepeat with i = 1 to 8if the short name of cd btn (begtok+i-1) is "token" then hide cd btn (begtok+i-1)end repeatput true into Gameglobal Playerset the hilite of cd btn (rbase+Player-1) to trueend setOldGameon liftMortgage propnum,flglobal VolatileData,MortgageValue,Data,numPlayers,mortRateput item 1 of line propnum of VolatileData into ownerput item 3 of line propnum of VolatileData into mif m <> "Mortgaged" thenflashit getstr(8),3exit liftMortgageend ifput item MortgageValue of line propnum of Data into mvaladd round((mortRate/100) * mval) to mval --add mortgage costif fl = "" then business mval,0,0,owner --owner pays bank mortgage value + mortgage rateput "" into item 3 of line propnum of VolatileDataif (SQtype(propnum) contains "Color") or (SQtype(propnum) contains "Farm") then put 14 into lno else put 9 into lnoput "Title"&propnum into deedput the number of words of line lno of cd fld deed of cd "Main" into mrepeat with i = 2 to mif word i of line lno of cd fld deed of cd "Main" = "M" then delete word i of line lno of cd fld deed of cd "Main"end repeatglobal BW,notRegif BW or notReg thenset the hilite of cd btn ("b"&propnum) of cd "Main" to falseset the hilite of cd btn ("l"&propnum) of cd "Main"to falserepeat with i = 1 to numPlayersif the loc of cd btn ("token"&i) of cd "Main" = (the loc of cd btn ("b"&propnum) of cd "Main") thenset the hilite of cd btn ("token"&i) of cd "Main" to falseend ifend repeatelseif the short name of this card is "Main" then invertSquare(propnum)global MortListrepeat with k = 1 to (the number of words of MortList)if word k of MortList = propnum thendelete word k of MortListexit repeatend ifend repeatdevisMort propnumend ifend liftMortgageon visMort propnumput the topLeft of cd btn ("b"&propnum) into tlput the bottomRight of cd btn ("b"&propnum) into br--move the owner button to the colored rect so we can see itif propnum < 11 thenshow cd btn ("l"&propnum) at ¬((item 1 of br) - 5),((item 2 of br) -5)else if propnum > 31 thenshow cd btn ("l"&propnum) at ¬((item 1 of br) - 5),((item 2 of tl) + 5)else if propnum < 21 thenset the loc of cd btn ("l"&propnum) to ¬((item 1 of tl)+5),((item 2 of br)-5)elseset the loc of cd btn ("l"&propnum) to ¬((item 1 of tl)+5),((item 2 of tl) +5)end ifend visMorton devisMort propnumput the topLeft of cd btn ("b"&propnum) of cd "Main" into tlput the bottomRight of cd btn ("b"&propnum) of cd "Main" into br--move the owner button to the colored rect so we can see itif propnum < 11 thenshow cd btn ("l"&propnum) of cd "Main" at ¬((item 1 of br) - 5),((item 2 of tl) +5)else if propnum > 31 thenshow cd btn ("l"&propnum) of cd "Main" at ¬((item 1 of tl) + 5),((item 2 of tl) + 5)else if propnum < 21 thenset the loc of cd btn ("l"&propnum) of cd "Main" to ¬((item 1 of br)-5),((item 2 of br)-5)elseset the loc of cd btn ("l"&propnum) of cd "Main" to ¬((item 1 of tl)+5),((item 2 of br) -5)end ifend devisMortfunction networth plglobal Assets,Data,PlayerProf,Cost,VolatileData,CostList,hcount,MortgageValueput 0 into awrthput item 2 of line pl of PlayerProf into proplistrepeat with i = 1 to the number of words of proplistif item 3 of line (word i of proplist) of VolatileData = "Mortgaged" thenadd item MortgageValue of line (word i of proplist) of Data to awrthelseadd item Cost of line (word i of proplist) of Data to awrthend ifrepeat with j = 1 to (item hcount of line (word i of proplist) of VolatileData)add (word j of item CostList of line (word i of proplist) of Data) to awrthend repeatend repeatreturn awrth-- put item Assets of line pl of PlayerProf into ass-- if ass <> awrth then answer "Accounting bug"end networthfunction auction propnum,spush cdgo cd "Main"global Money,PlayerProf,numPlayers,rbase,lit,Bank,MaxBid,¬Name,Names,Data,Cost,bplayer,VolatileData,MortgageFlag,MortgageValue,Minimumif s is 0 thenput "Bank" into cd fld "seller" of cd "Main"elseput (item 1 of line s of PlayerProf) into cd fld "seller" of cd "Main"end ifput "b"&propnum into thebutput the hilite of cd btn thebut into theHiliteput line propnum of Names into cd fld "Property" of cd "Main"show cd fld "Transaction" of cd "Main"show cd fld "Property" of cd "Main"show cd fld "S.Name" of cd "Main"show cd fld "seller" of cd "Main"put false into soldif item MortgageFlag of line propnum of VolatileData is "Mortgaged" thenput item MortgageValue of line propnum of Data into StartBidelseput item Cost of line propnum of Data into StartBidend ifput s into plnoif s is 0 thenput item Minimum of line propnum of Data into minbidelseput 0 into minbidend ifglobal NumPlayersrepeat with k = 1 to NumPlayersif item Money of line k of PlayerProf >= minbid then put true into affend repeatif aff <> true thenflashit "Nobody can afford this property.",2if bplayer <> "" then liftMortgage propnum,trueplay "Fart"cleanAuctionreturn (-1)end ifrepeat while StartBid >= minBidbeepput getPlayerNum( getstr(9) & StartBid, ¬300,propnum) into bidderif bidder = "TimeOut" thenput StartBid into savedBidput round((StartBid + minbid)/2) into StartBidif startBid = Savedbid thenput 0 into StartBidend ifelse if item Money of line bidder of PlayerProf < StartBid thenflashit getstr(10),3next repeatelse if bidder = bplayer thenflashit getstr(11),3next repeatelseexit repeatend ifend repeatif StartBid < minbid thenflashit getstr(12) & minbid,2if bplayer <> "" thenbusiness 0,propnum,bplayer,0set the hilite of cd btn thebut to falseset the hilite of cd btn ("l"&propnum) to falseliftMortgage propnum,trueend ifcleanAuctionset the hilite of cd btn thebut to thehilitereturn (-1)end ifput bidder into plnoput StartBid into MaxBidrepeat while not soldput getPlayerNum( getstr(9) ¬& (MaxBid+10) & ".",500,propnum) ¬into bidderif bidder = "TimeOut" thenif plno <> s then put true into soldexit repeatend ifif bidder = s or bidder = bplayer thenflashit getstr(13) &(item Name of line bidder of PlayerProf)&".",4next repeatelse if item Money of line bidder of PlayerProf < (MaxBid+10) thenflashit (item Name of line bidder of PlayerProf) & getstr(14),5next repeatelseadd 10 to MaxBidend ifput bidder into plnoend repeatif sold thenflashit (getstr(15) & (item Name of line plno of PlayerProf)¬& " for " & MaxBid) ,1business MaxBid,propnum,s,plnoput 0 into retitelseput (-1) into retitend ifcleanAuctionset the hilite of cd btn thebut to thehilitereturn retitend auctionon cleanAuctionhide cd fld "Transaction" of cd "Main"hide cd fld "Property" of cd "Main"hide cd fld "S.Name" of cd "Main"hide cd fld "seller" of cd "Main"end cleanAuctionon flashit str,iif not (there is a cd fld "statusline") then exit flashitput str into cd fld "statusline"repeat with j = 1 to ihide cd fld "statusline"wait 10show cd fld "statusline"wait 10end repeatend flashiton nextPlayerglobal Dcnt,Player,PlayerProf,numPlayers,statusput 0 into Dcntset the hilite of cd btn (item 1 of line Player of PlayerProf) to falseadd 1 to Playerif Player > numPlayers then put 1 into Playerset the hilite of cd btn (item 1 of line Player of PlayerProf) to trueif item status of line Player of PlayerProf = "bankrupt" then nextPlayerend nextPlayerfunction getstr dexglobal Stringsreturn line dex of Stringsend getstrfunction SQType pglobal Data,Flagreturn item Flag of line p of Dataend SQTypeon invertSquare propnumlock screenput the rect of cd btn ("b"&propnum) into tRectput the rect of cd btn ("h"&propnum) into sRectif (the topLeft of cd btn ("b"&propnum)) = (the topLeft of cd btn ("h"&propnum)) thenif item 4 of Srect = item 4 of tRect thenput item 3 of Srect into item 1 of tRectelseput item 4 of Srect into item 2 of tRectend ifelseif item 1 of Srect = item 1 of tRect thenput item 2 of Srect into item 4 of tRectelseput item 1 of Srect into item 3 of tRectend ifend ifadd 1 to item 1 of tRectadd 1 to item 2 of tRectsubtract 1 from item 3 of tRectsubtract 1 from item 4 of tRectcolorizeHC "Copy",tRect,tRect,NotCopyunlock screenend invertSquarefunction instance base,rangeput round(range/2) into xput the random of x into bif the random of 2 is 2 thenreturn (base + b)elsereturn (base - b)end ifend instance</script>
